home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vbxs / aontop < prev    next >
Text File  |  1996-04-08  |  1KB  |  40 lines
  1. 'API Declarations for Topsmost Windows code:
  2.     
  3.  Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
  4.  
  5.  Global Const HWND_TOPMOST = -1
  6.  Global Const HWND_NOTOPMOST = -2
  7.  Global Const SWP_NOSIZE = &H1
  8.  Global Const SWP_NOMOVE = &H2
  9.  Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  10.  
  11. 'Usage:
  12.  
  13. 'To make a window on top, call the OnTop procedure passing
  14. 'first the forms handle as an integer and then then true or
  15. 'false for whether you want it ontop or not.
  16.  
  17. 'For example:
  18.  
  19. '   OnTop CInt(FormName.hWnd), True
  20.  
  21. '   ...would make the passed form ontop.
  22.  
  23. '   OnTop CInt(FormName.hWnd), False
  24.  
  25. '   ...would make it not ontop, normal
  26.     
  27.  
  28.  
  29.  
  30. Sub OnTop (handle%, value)
  31.     If value = True Then
  32.     'Set window to be on top...
  33.     Call SetWindowPos(handle, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  34.     Else
  35.     '..and not on top...
  36.     Call SetWindowPos(handle, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
  37.     End If
  38. End Sub
  39.  
  40.